home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / include / ace / fexists.h < prev    next >
Encoding:
Text File  |  1996-08-28  |  337 b   |  20 lines
  1. /* FEXISTS(x$) -- returns true if file exists otherwise false.
  2.  
  3.   Author: David J Benn
  4.     Date: 28th February 1993,
  5.       2nd January 1994 */
  6.         
  7. sub fexists(x$)
  8.   if x$="" then 
  9.     fexists=0
  10.   else
  11.     open "I",#255,x$
  12.     if handle(255) <> 0& then 
  13.       close #255
  14.       fexists=-1
  15.     else 
  16.       fexists=0
  17.     end if
  18.   end if
  19. end sub
  20.